home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Shareware / Comunicaciones / UnderControl v0.4.5 ƒ / UnderControl reminder script.as < prev    next >
Encoding:
Text File  |  1996-07-06  |  1.0 KB  |  28 lines
  1. property sentmessagestring : ""
  2. property messagestringtosend : ""
  3.  
  4. on run
  5.     try
  6.         set messagestringtosend to "Dont forget to disconnect!"
  7.         with timeout of 5 seconds
  8.             tell application "UnderControl FAT"
  9.                 set my sentmessagestring to send message to connected users (my messagestringtosend)
  10.                 if my sentmessagestring is not equal to my messagestringtosend then
  11.                     error "The message I told UC to send was not the same as what it told me it tried to send!" number (-1)
  12.                 end if
  13.                 display dialog "Message sent:" & return & (my sentmessagestring) & return buttons {"OK"} default button 1
  14.             end tell
  15.         end timeout
  16.     on error errMsg number errNum
  17.         --if suspect is equal to me then
  18.         --    set someone to "UC beta test script"
  19.         --else
  20.         --    set someone to "UnderControl"
  21.         --end if
  22.         if errNum is -43 then set errMsg to "No users connected."
  23.         display dialog "UC gave the error: " & errNum & return & return & ¬
  24.             errMsg & return buttons {"OK"} default button 1
  25.     end try
  26.     messagestringtosend & return & sentmessagestring & return
  27. end run
  28.